home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / gawk_2_15_5.lha / gawk-2.15.5 / main.ch < prev    next >
Encoding:
Text File  |  1995-01-21  |  909 b   |  51 lines
  1. Changes for MAIN.C by Andreas Scherer, January 20, 1995.
  2.  
  3. @x l.27
  4. #include "awk.h"
  5. @y
  6. #include "ansiawk.h"
  7. @z
  8.  
  9. @x l.334
  10.     if (isatty(fileno(stdout)))
  11.         output_is_tty = 1;
  12. @y
  13.     output_is_tty = 0;
  14. @z
  15.  
  16. @x l.544
  17. load_environ()
  18. {
  19. #if !defined(MSDOS) && !defined(OS2) && !(defined(VMS) && defined(__DECC))
  20.     extern char **environ;
  21. #endif
  22.     register char *var, *val;
  23.     NODE **aptr;
  24.     register int i;
  25.  
  26.     ENVIRON_node = install("ENVIRON", 
  27.             node(Nnull_string, Node_var, (NODE *) NULL));
  28.     for (i = 0; environ[i]; i++) {
  29.         static char nullstr[] = "";
  30.  
  31.         var = environ[i];
  32.         val = strchr(var, '=');
  33.         if (val)
  34.             *val++ = '\0';
  35.         else
  36.             val = nullstr;
  37.         aptr = assoc_lookup(ENVIRON_node, tmp_string(var, strlen (var)));
  38.         *aptr = make_string(val, strlen (val));
  39.         (*aptr)->flags |= MAYBE_NUM;
  40.  
  41.         /* restore '=' so that system() gets a valid environment */
  42.         if (val != nullstr)
  43.             *--val = '=';
  44.     }
  45. }
  46. @y
  47. load_environ()
  48. {
  49. }
  50. @z
  51.